FV-Funktion (Beispiel)

In diesem Beispiel wird die FV-Funktion verwendet, um den Endwert einer Investition zurⁿckzugeben, wenn die folgenden Werte gegeben sind: Zinssatz pro Zeitraum (JZINS / 12), Gesamtanzahl der Zahlungen (GesZahl), der Zahlungsbetrag (Zahlung), Barwert der Investition (BWert) und eine Zahl, die angibt, ob die Zahlung am Ende oder am Anfang des Zahlungszeitraums fΣllig ist (ZahlTyp). Da Zahlung einen ausgezahlten Betrag darstellt, ist der Wert negativ.

Dim Fmt, Zahlung, JZINS, GesZahl, ZahlTyp, BWert, EWert
Const TYPENDE = 0, TYPANFANG = 1    ' Zahlungszeitpunkt.
Fmt = "###.###.##0,00"    ' Geldformat definieren.
Zahlung = InputBox("Was ist Ihr monatliches Sparziel?")
JZINS = InputBox("Geben Sie den geschΣtzten Jahreszins ein.")
If JZINS > 1 Then JZINS = JZINS / 100    ' Richtiges Format verwenden.
GesZahl = InputBox("Wie viele Monate m÷chten Sie sparen?")
ZahlTyp = MsgBox("Erfolgen Zahlungen am Monatsende?", vbYesNo)
If ZahlTyp = vbNo Then ZahlTyp = TYPANFANG Else ZahlTyp = TYPENDE
BWert = InputBox("Wieviel Geld liegt momentan auf diesem Sparbuch?")
EWert = FV(JZINS / 12, GesZahl, -Zahlung, -BWert, ZahlTyp)
MsgBox "Ihre Ersparnisse ergeben " & Format(EWert, Fmt) & "."